home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / jul95 / kada1f6.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  8.0 KB  |  419x418  |  4-bit (5 colors)
   ocr: SIMULFSL-pbwindow.mouschighup method mousekigntup(uar eventinfo Mousetvent) var aChoice String sId smallint enduar aChoice - popwindow.show() switch case aChoice l "&Tile" = - sId = Menuwindowlile case aChoice - "&Cascade" = - sid = Menuwindowcascade case aChoice = "Arrange &icons" sid = Menuvindowerrangelcons case aChoice = "Close &All" - - sid - MenuwindowCloseall otherwise : return endSwitch menuAction(sid) endmetnod Edit Line: 1 Col: 1